home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / moden / examples / exdial0.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  2.9 KB  |  116 lines
  1. unit Exdial0;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, AdModem, AdPort, StdCtrls, Buttons;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     ListBox1: TListBox;
  12.     BitBtn1: TBitBtn;
  13.     ApdComPort1: TApdComPort;
  14.     ApdModem1: TApdModem;
  15.     procedure ApdModem1DialCount(M: TObject; Remaining: Word);
  16.     procedure ApdModem1DialTimedOut(Sender: TObject);
  17.     procedure ApdModem1GotDataCompression(Sender: TObject);
  18.     procedure ApdModem1GotErrCorrection(Sender: TObject);
  19.     procedure ApdModem1GotLineSpeed(M: TObject; Speed: Longint);
  20.     procedure ApdModem1ModemBusy(Sender: TObject);
  21.     procedure ApdModem1ModemConnect(Sender: TObject);
  22.     procedure ApdModem1ModemError(Sender: TObject);
  23.     procedure ApdModem1ModemNoCarrier(Sender: TObject);
  24.     procedure ApdModem1ModemNoDialTone(Sender: TObject);
  25.     procedure ApdModem1ModemVoice(Sender: TObject);
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure BitBtn1Click(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.     procedure AddStatus(const Msg : String);
  33.   end;
  34.  
  35. var
  36.   Form1: TForm1;
  37.  
  38. implementation
  39.  
  40. {$R *.DFM}
  41.  
  42. procedure TForm1.AddStatus(const Msg : String);
  43. begin
  44.   Listbox1.Items.Add(Msg);
  45.   Listbox1.ItemIndex := Pred(Listbox1.Items.Count);
  46. end;
  47.  
  48. procedure TForm1.ApdModem1DialCount(M: TObject; Remaining: Word);
  49. begin
  50.   AddStatus('Still dialing. ' + IntToStr(Remaining) + ' seconds remaining.');
  51. end;
  52.  
  53. procedure TForm1.ApdModem1DialTimedOut(Sender: TObject);
  54. begin
  55.   AddStatus('Timed out waiting for remote to answer');
  56. end;
  57.  
  58. procedure TForm1.ApdModem1GotDataCompression(Sender: TObject);
  59. begin
  60.   AddStatus('This connection supports data compression');
  61. end;
  62.  
  63. procedure TForm1.ApdModem1GotErrCorrection(Sender: TObject);
  64. begin
  65.   AddStatus('This is an error correcting connection');
  66. end;
  67.  
  68. procedure TForm1.ApdModem1GotLineSpeed(M: TObject; Speed: Longint);
  69. begin
  70.   AddStatus('Connected at ' + IntToStr(Speed) + ' baud');
  71. end;
  72.  
  73. procedure TForm1.ApdModem1ModemBusy(Sender: TObject);
  74. begin
  75.   AddStatus('Remote was busy');
  76. end;
  77.  
  78. procedure TForm1.ApdModem1ModemConnect(Sender: TObject);
  79. begin
  80.   AddStatus('Connected!');
  81. end;
  82.  
  83. procedure TForm1.ApdModem1ModemError(Sender: TObject);
  84. begin
  85.   AddStatus('Modem returned ERROR');
  86. end;
  87.  
  88. procedure TForm1.ApdModem1ModemNoCarrier(Sender: TObject);
  89. begin
  90.   AddStatus('Connection lost');
  91. end;
  92.  
  93. procedure TForm1.ApdModem1ModemNoDialTone(Sender: TObject);
  94. begin
  95.   AddStatus('No dialtone.  Check cables.');
  96. end;
  97.  
  98. procedure TForm1.ApdModem1ModemVoice(Sender: TObject);
  99. begin
  100.   AddStatus('Remote answered with voice');
  101. end;
  102.  
  103. procedure TForm1.FormCreate(Sender: TObject);
  104. begin
  105.   ApdComPort1.Open := True;
  106.   ApdModem1.Started := True;
  107. end;
  108.  
  109. procedure TForm1.BitBtn1Click(Sender: TObject);
  110. begin
  111.   ApdModem1.Dial('260-9726');
  112. end;
  113.  
  114. end.
  115.  
  116.